home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / german.bas < prev    next >
BASIC Source File  |  1988-11-09  |  3KB  |  72 lines
  1. 10 REM       *****    Ungeduld    *****
  2. 20 REM       *****  A German Song *****
  3. 30 REM Written By: Michael Todd Jr. (with help from Bob Campbell)
  4. 40 CLS:KEY OFF
  5. 50 COLOR 7
  6. 60 A=1
  7. 65 IF A=4 THEN GOTO 3000
  8. 70 CLS:LOCATE 1,32,0:COLOR 15:PRINT "Ungeduld":COLOR 7
  9. 80 LOCATE 2,52:PRINT "By: ";:COLOR 15:PRINT "Franz Schubert":COLOR 7
  10. 83 LOCATE 2,1:COLOR 15:PRINT A;:COLOR 7:LOCATE 2,3,0
  11. 85 IF A=1 THEN PRINT "st";:
  12. 86 IF A=2 THEN PRINT "nd";:
  13. 87 IF A=3 THEN PRINT "rd";;
  14. 88 PRINT " verse"
  15. 90 IF A=2 THEN GOTO 300
  16. 95 IF A=3 THEN GOTO 500
  17. 100 ' first verse
  18. 110 PRINT:PRINT "Ich schnitt'es gern in alle Rinden ein,"
  19. 120 PRINT:PRINT "ich grb es gern in jeden Kisselstein,
  20. 130 PRINT:PRINT "ich mcht'es sa'n auf jedes frische Beet,"
  21. 140 PRINT:PRINT "mit Kressensamen, der es schnell verrth,
  22. 150 PRINT:PRINT "auf jeden weissen Zettel mcht es Schreiben:"
  23. 160 PRINT:PRINT "Dein ist mein Herz, dein ist mein Herz,"
  24. 170 PRINT:PRINT "und soll es ewig, ewig bleiben."
  25. 180 GOTO 1000
  26. 300 ' second verse
  27. 310 PRINT:PRINT "Ich mcht'mir ziehen einen jungen Starr,"
  28. 320 PRINT:PRINT "bis dass er sprch'die Worte rein und klar,"
  29. 330 PRINT:PRINT "bis er sie sprch'mit meines Mundes Klang,"
  30. 340 PRINT:PRINT "mit meines Herzens vollem heissen Drang,"
  31. 350 PRINT:PRINT "dann sng'er hell durch ihre Fensterscheiben:"
  32. 360 PRINT:PRINT "Dein ist mein Herz, dein ist mein Herz,"
  33. 370 PRINT:PRINT "und soll es ewig, ewig bleiben."
  34. 380 GOTO 1000
  35. 500 ' third and last verse (phew!)
  36. 510 PRINT:PRINT "Ich meint', es musst'in meinnen Auggen steh'n,"
  37. 520 PRINT:PRINT "auf meinnen Wangen msst'mann's brennen seh'n,"
  38. 530 PRINT:PRINT "zu lezens war's auf meinem stummen Mund,"
  39. 540 PRINT:PRINT "ein jeder Athemzug gb's laut ihr kund,"
  40. 550 PRINT:PRINT "und sie merkt nichts von all'dem bangen Treiben:"
  41. 560 PRINT:PRINT "Dein ist mein Herz, dein ist mein Herz,"
  42. 570 PRINT:PRINT "und soll es ewig, ewig bleiben."
  43. 580 GOTO 1000
  44. 700 '
  45. 710 ' arrow placement and movement
  46. 720 COLOR 15:LOCATE X,Y:PRINT CHR$(27):RETURN
  47. 800 '
  48. 810 ' arrow erasure
  49. 820 LOCATE X,Y:PRINT " ":RETURN
  50. 900 '
  51. 910 '
  52. 1000 PLAY "t120mn
  53. 1010 X=4:Y=50:GOSUB 700
  54. 1020 PLAY"o3c8a8.g16f8.e16g8.f16e8.d16d4p8"
  55. 1030 GOSUB 800:X=6:Y=50:GOSUB 700
  56. 1040 PLAY"o3d8b-8.a16g8.f#16a8.g16f8.e16e4p8"
  57. 1050 GOSUB 800:X=8:Y=50:GOSUB 700
  58. 1060 PLAY"o3a8o4c8.o3b-16g8.e16g8.b-16o4d8.c16o3a4p8"
  59. 1070 GOSUB 800:X=10:Y=50:GOSUB 700
  60. 1080 PLAY"o4c8c8.e-8e-8.d16d8.c16o3a8.o4c16o3b-4p8"
  61. 1090 GOSUB 800:X=12:Y=50:GOSUB 700
  62. 1100 PLAY"o3a8g8.o4d16d8.c16c8.o3b-16b-8.a16mla8.g16mnf8p8"
  63. 1110 GOSUB 800:X=14:Y=50:GOSUB 700
  64. 1120 PLAY"o4d2o3g8.g16g2.o4f2o3b8.b16b4."
  65. 1130 GOSUB 800:X=16:Y=50:GOSUB 700
  66. 1140 PLAY"mno3b8b8b8o4mlf4.mnc8mlo3a8mnf8mlb-4.mng8mle8mnc8"
  67. 1150 PLAY"mlc8o4c8o3b-4o4c16o3b-16a8g8f8p4p4"
  68. 1160 GOSUB 800
  69. 1170 A=A+1:GOTO 65
  70. 3000 A$=INKEY$:IF A$="" THEN GOTO 3000
  71. 3010 COLOR 7:END
  72. Press <ENTER> Enter the file number for DOWNLOADing,<D>irectory again, <H>elp, or <Q>uit: 14Five bells will sound to signifythe END of FILE.  After you closeyour file, Press <ENTER> to resumethe session."Three tunes basica Nice  " is ready for transmission.Updated: 06/28/83.    3456 Bytes.  Xmit Time:  1:55Type S to Stop and Return to Menu Type P to Pause . . <ENTER> to ContinueOpen your disk file to receive transmiss